home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGMISC / FORTRAN1.LZH / GOTOXY.FOR < prev    next >
Text File  |  1988-02-08  |  3KB  |  92 lines
  1.       SUBROUTINE GOTOXY ( NWRITE, IX, IY )
  2. C*
  3. C*                  *******************************
  4. C*                  *******************************
  5. C*                  **                           **
  6. C*                  **          GOTOXY           **
  7. C*                  **                           **
  8. C*                  *******************************
  9. C*                  *******************************
  10. C*
  11. C*     SUBPROGRAM :
  12. C*          GO TO X,Y LOCATION
  13. C*
  14. C*     AUTHOR :
  15. C*          ART RAGOSTA
  16. C*          MS 207-5
  17. C*          AMES RESEARCH CENTER
  18. C*          MOFFETT FIELD, CALIF  94035
  19. C*          (415)694-5578
  20. C*
  21. C*     PURPOSE :
  22. C*          TO POSITION THE CURSOR AT THE GIVEN X AND Y LOCATION.
  23. C*
  24. C*     METHODOLOGY :
  25. C*          USE VT-100 CONTROL SEQUENCES.
  26. C*
  27. C*     INPUT ARGUMENTS :
  28. C*          NWRITE - THE FORTRAN LOGICAL UNIT NUMBER ASSIGNED TO THE SCREEN.
  29. C*          IX     - THE COLUMN LOCATION IN WHICH TO POSITION THE CURSOR.
  30. C*          IY     - THE ROW LOCATION IN WHICH TO POSITION THE CURSOR.
  31. C*
  32. C*     OUTPUT ARGUMENTS :
  33. C*          NONE
  34. C*
  35. C*     INTERNAL WORK AREAS :
  36. C*          NONE
  37. C*
  38. C*     COMMON BLOCKS :
  39. C*          NONE
  40. C*
  41. C*     FILE REFERENCES :
  42. C*          NWRITE
  43. C*
  44. C*     DATA BASE ACCESS :
  45. C*          NONE
  46. C*
  47. C*     SUBPROGRAM REFERENCES :
  48. C*          NONE
  49. C*
  50. C*     ERROR PROCESSING :
  51. C*          NONE
  52. C*
  53. C*     TRANSPORTABILITY LIMITATIONS :
  54. C*          WORKS ONLY WITH VT-100 OR COMPATIBLE TERMINALS.
  55. C*          USES THE NON-STANDARD FORMAT DESCRIPTOR, $.
  56. C*
  57. C*     ASSUMPTIONS AND RESTRICTIONS :
  58. C*          IN ORDER FOR THE CURSOR TO MAINTAIN ITS LOCATION, THE NEXT WRITE
  59. C*          ISSUED AFTER A CALL TO GOTOXY MUST USE THE '+' FORMAT CONTROL;
  60. C*          OTHERWISE THE WRITE WILL START IN THE FIRST COLUMN OF THE NEXT ROW.
  61. C*
  62. C*     LANGUAGE AND COMPILER :
  63. C*          ANSI FORTRAN 77
  64. C*
  65. C*     VERSION AND DATE :
  66. C*          VERSION I.0     30-JAN-85
  67. C*
  68. C*     CHANGE HISTORY :
  69. C*          30-JAN-85    INITIAL VERSION
  70. C*
  71. C***********************************************************************
  72. C*
  73.       CHARACTER *1 ESC
  74.       DATA ESC/27/
  75. C
  76.       IF (IX .LE. 0) IX = 1
  77.       IF (IX .GE. 133) IX = 80
  78.       IF (IY .LE. 0) IY = 2
  79.       IF (IY .GE. 25) IY = 24
  80.       M = 1
  81.       N = 1
  82.       IF (IX .GT. 9) M = 2
  83.       IF (IX .GT. 99) M = 3
  84.       IF (IY .GT. 9) N = 2
  85.       WRITE ( NWRITE, 900 ) ESC, IY, IX
  86.       RETURN
  87. 900   FORMAT('+',A1,'[',I<N>,';',I<M>,'H',$)
  88.       END
  89. C
  90. C---END GOTOXY
  91. C
  92.